! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Tue Jan  7 17:14:02 2020
! Working directory    : /n/home08/kbates/Aromatics/RACM2_from_Ke
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(26) = (1.8E-6)*CFACTOR
  VAR(32) = (1.5E-4)*(1.0E-6)*CFACTOR
  VAR(33) = (0.5E-4)*(1.0E-6)*CFACTOR
  VAR(34) = (0.7E-5)*(1.0E-6)*(6.7E-1)*CFACTOR
  VAR(35) = (0.7E-5)*(1.0E-6)*(3.3E-1)*CFACTOR
  VAR(39) = (2.0E-7)*CFACTOR
  VAR(137) = (3.0E-9)*CFACTOR
  VAR(175) = (7.5E-8)*CFACTOR
  VAR(177) = (5.0E-3)*(2.0E-9)*CFACTOR
  FIX(1) = (1.0E-2)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(451) = 2e-11
  RCONST(452) = 1e-11
  RCONST(519) = 9.9206e-11
  RCONST(520) = 1.1574e-11
  RCONST(521) = 3.9684e-12
  RCONST(522) = 3.3068e-13
  RCONST(528) = 1.1574e-05
  RCONST(529) = 1.1574e-05
  RCONST(530) = 1.1574e-05
  RCONST(531) = 1.1574e-05
  RCONST(532) = 1.1574e-05
  RCONST(533) = 1.1574e-05
  RCONST(534) = 1.1574e-05
  RCONST(535) = 1.1574e-05
  RCONST(536) = 1.1574e-05
  RCONST(537) = 1.1574e-05
  RCONST(538) = 1.1574e-05
  RCONST(539) = 1.1574e-05
  RCONST(540) = 1.1574e-05
  RCONST(541) = 1.1574e-05
  RCONST(542) = 1.1574e-05
  RCONST(543) = 1.1574e-05
  RCONST(544) = 1.1574e-05
  RCONST(545) = 1.1574e-05
  RCONST(546) = 1.1574e-05
  RCONST(547) = 1.1574e-05
  RCONST(548) = 1.1574e-05
  RCONST(549) = 1.1574e-05
  RCONST(550) = 1.1574e-05
  RCONST(551) = 1.1574e-05
  RCONST(552) = 1.1574e-05
  RCONST(553) = 1.1574e-05
  RCONST(554) = 1.1574e-05
  RCONST(555) = 1.1574e-05
  RCONST(556) = 1.1574e-05
  RCONST(557) = 1.1574e-05
  RCONST(558) = 1.1574e-05
  RCONST(559) = 1.1574e-05
  RCONST(560) = 1.1574e-05
  RCONST(561) = 1.1574e-05
  RCONST(562) = 1.1574e-05
  RCONST(563) = 1.1574e-05
  RCONST(564) = 1.1574e-05
  RCONST(565) = 1.1574e-05
  RCONST(566) = 1.1574e-05
  RCONST(567) = 1.1574e-05
  RCONST(568) = 1.1574e-05
  RCONST(569) = 1.1574e-05
  RCONST(570) = 1.1574e-05
  RCONST(571) = 1.1574e-05
  RCONST(572) = 1.1574e-05
  RCONST(573) = 1.1574e-05
  RCONST(574) = 1.1574e-05
  RCONST(575) = 1.1574e-05
  RCONST(576) = 1.1574e-05
  RCONST(577) = 1.1574e-05
  RCONST(578) = 1.1574e-05
  RCONST(579) = 1.1574e-05
  RCONST(580) = 1.1574e-05
  RCONST(581) = 1.1574e-05
  RCONST(582) = 1.1574e-05
  RCONST(583) = 1.1574e-05
  RCONST(584) = 1.1574e-05
  RCONST(585) = 1.1574e-05
  RCONST(586) = 1.1574e-05
  RCONST(587) = 1.1574e-05
  RCONST(588) = 1.1574e-05
  RCONST(589) = 1.1574e-05
  RCONST(590) = 1.1574e-05
  RCONST(591) = 1.1574e-05
  RCONST(592) = 1.1574e-05
  RCONST(593) = 1.1574e-05
  RCONST(594) = 1.1574e-05
  RCONST(595) = 1.1574e-05
  RCONST(596) = 1.1574e-05
  RCONST(597) = 1.1574e-05
  RCONST(598) = 1.1574e-05
  RCONST(599) = 1.1574e-05
  RCONST(600) = 1.1574e-05
  RCONST(601) = 1.1574e-05
  RCONST(602) = 1.1574e-05
  RCONST(603) = 1.1574e-05
  RCONST(604) = 1.1574e-05
  RCONST(605) = 1.1574e-05
  RCONST(606) = 1.1574e-05
  RCONST(607) = 1.1574e-05
  RCONST(608) = 1.1574e-05
  RCONST(609) = 1.1574e-05
  RCONST(610) = 1.1574e-05
  RCONST(611) = 1.1574e-05
  RCONST(612) = 1.1574e-05
  RCONST(613) = 1.1574e-05
  RCONST(614) = 1.1574e-05
  RCONST(615) = 1.1574e-05
  RCONST(616) = 1.1574e-05
  RCONST(617) = 1.1574e-05
  RCONST(618) = 1.1574e-05
  RCONST(619) = 1.1574e-05
  RCONST(620) = 1.1574e-05
  RCONST(621) = 1.1574e-05
  RCONST(622) = 1.1574e-05
  RCONST(623) = 1.1574e-05
  RCONST(624) = 1.1574e-05
  RCONST(625) = 1.1574e-05
  RCONST(626) = 1.1574e-05
  RCONST(627) = 1.1574e-05
  RCONST(628) = 1.1574e-05
  RCONST(629) = 1.1574e-05
  RCONST(630) = 1.1574e-05
  RCONST(631) = 1.1574e-05
  RCONST(632) = 1.1574e-05
  RCONST(633) = 1.1574e-05
  RCONST(634) = 1.1574e-05
  RCONST(635) = 1.1574e-05
  RCONST(636) = 1.1574e-05
  RCONST(637) = 1.1574e-05
  RCONST(638) = 1.1574e-05
  RCONST(639) = 1.1574e-05
  RCONST(640) = 1.1574e-05
  RCONST(641) = 1.1574e-05
  RCONST(642) = 1.1574e-05
  RCONST(643) = 1.1574e-05
  RCONST(644) = 1.1574e-05
  RCONST(645) = 1.1574e-05
  RCONST(646) = 1.1574e-05
  RCONST(647) = 1.1574e-05
  RCONST(648) = 1.1574e-05
  RCONST(649) = 1.1574e-05
  RCONST(650) = 1.1574e-05
  RCONST(651) = 1.1574e-05
  RCONST(652) = 1.1574e-05
  RCONST(653) = 1.1574e-05
  RCONST(654) = 1.1574e-05
  RCONST(655) = 1.1574e-05
  RCONST(656) = 1.1574e-05
  RCONST(657) = 1.1574e-05
  RCONST(658) = 1.1574e-05
  RCONST(659) = 1.1574e-05
  RCONST(660) = 1.1574e-05
  RCONST(661) = 1.1574e-05
  RCONST(662) = 1.1574e-05
  RCONST(663) = 1.1574e-05
  RCONST(664) = 1.1574e-05
  RCONST(665) = 1.1574e-05
  RCONST(666) = 1.1574e-05
  RCONST(667) = 1.1574e-05
  RCONST(668) = 1.1574e-05
  RCONST(669) = 1.1574e-05
  RCONST(670) = 1.1574e-05
  RCONST(671) = 1.1574e-05
  RCONST(672) = 1.1574e-05
  RCONST(673) = 1.1574e-05
  RCONST(674) = 1.1574e-05
  RCONST(675) = 1.1574e-05
  RCONST(676) = 1.1574e-05
  RCONST(677) = 1.1574e-05
  RCONST(678) = 1.1574e-05
  RCONST(679) = 1.1574e-05
  RCONST(680) = 1.1574e-05
  RCONST(681) = 1.1574e-05
  RCONST(682) = 1.1574e-05
  RCONST(683) = 1.1574e-05
  RCONST(684) = 1.1574e-05
  RCONST(685) = 1.1574e-05
  RCONST(686) = 1.1574e-05
  RCONST(687) = 1.1574e-05
  RCONST(688) = 1.1574e-05
  RCONST(689) = 1.1574e-05
  RCONST(690) = 1.1574e-05
  RCONST(691) = 1.1574e-05
  RCONST(692) = 1.1574e-05
  RCONST(693) = 1.1574e-05
  RCONST(694) = 1.1574e-05
  RCONST(695) = 1.1574e-05
  RCONST(696) = 1.1574e-05
  RCONST(697) = 1.1574e-05
  RCONST(698) = 1.1574e-05
  RCONST(699) = 1.1574e-05
  RCONST(700) = 1.1574e-05
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 707400
        DT = 60.0
        TEMP = 298

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

